home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 20 / Cream of the Crop 20 (Terry Blount) (1996).iso / program / n_b_v203.zip / T-ARCSIN.UNT < prev    next >
Text File  |  1996-07-04  |  2KB  |  46 lines
  1. $if 0
  2.     ┌──────────────────────────╖                        PowerBASIC v3.20
  3.  ┌──┤          DASoft          ╟──────────────────────┬──────────────────╖
  4.  │  ├──────────────────────────╢                      │ DATE: 1996-01-28 ╟─╖
  5.  │  │ FILE NAME   T-ARCSIN.UNT ║                      ╘════════════════─ ║ ║
  6.  │  │ LIBRARY     DAS-NB03.PBL ║                                         ║ ║
  7.  │  ╘══════════════════════════╝                                         ║ ║
  8.  ╘═╤═════════════════════════════════════════════════════════════════════╝ ║
  9.    ╘═══════════════════════════════════════════════════════════════════════╝
  10. $endif
  11.  
  12. '.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°
  13. ' ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° °
  14. $if 1
  15.   $CODE SEG "DAS_NB03"
  16.   $EVENT               OFF
  17.   $ERROR     ALL       OFF
  18.   $OPTIMIZE  SPEED
  19.   $OPTION    GOSUB     OFF
  20.   $OPTION    CNTLBREAK OFF
  21.   $OPTION    SIGNED    OFF
  22.   $DEBUG     MAP       OFF
  23.   $DEBUG     PATH      OFF
  24.   $DEBUG     UNIT      OFF
  25.   $COMPILE   UNIT
  26. $endif
  27.  
  28. '.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°
  29. ' ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° °
  30. ' PURPOSE: compute the sin of an arc
  31. '  PARAMS: Angle# the angle of the arc
  32. ' RETURNS: what UC is what Uget
  33. '.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°
  34. ' ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° °
  35.  
  36. FUNCTION fArcSIN# ( BYVAL Angle# ) LOCAL PUBLIC
  37.  
  38.   IF ABS(Angle#) <> 1 THEN
  39.       FUNCTION = ATN( Angle# / SQR( 1 - Angle# ^ 2 ) )
  40.     ELSE
  41.       FUNCTION = SGN(Angle#) * 2 * ATN(1)
  42.   END IF
  43.  
  44. END FUNCTION
  45.  
  46.